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PPPPPPPP AAAAAA SSSSSSSS RRRRRRRR EEEEEEEEEE AAAAAA BBBBBBBB 000000 000000 ‘ 
PP PP AA AA SS RR RR EE AA AA BB BB 00 00 00 00 ‘ 
Pp PP AA AA SS RR RR EE AA AA BB BB OO 00 00 00 ‘ 
PP PP AA AA SS RR RR EE AA AA 6B BB 00 00 00 00 ‘ 
PP PP AA AA SS RR R EE AA AA BB BB 00 00 OO 00 ‘ 
PPPPPPPP AA AA SSSSSS RRRRRRRR EEEEEEEE AA AA B8BBBBBB 00 00 OO 00 ‘ 
PPPPPPPP AA AA SSSSSS RRRRRRRR EEEEEEEE AA AA BB8BBBBBB 00 00 O00 00 ° 
PP AAAAAAAAAA SS RR RR EE AAAAAAAAAA 8B BB 00 00 O00 00 : 
PP AAAAAAAAAA SS RR RR EE AAAAAAAAAA BB BB 00 00 OO 00 : 
PP AA AA SS RR RR EE AA AA BB BB 00 00 00 00 wees . 
PP AA AA SS RR RR EE AA AA BB BB 00 00 00 00 éicwe ’ 
PP AA AA SSSSSSSS RR RR EEEEEEEEEE AA AA BBBBBBBB 000000 000000 ee . 
PP AA AA SSSSSSSS RR RR EEEEEEEEEE AA AA BBBBBBBB 000000 000000 eon | ‘ 

| e 
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14-Sep-19 PASRTL TS 


AUATLE "Read a boolean' 


BEGIN 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS hes * fs FURNISHED UNDER A ‘em AND MAY BE USED AND gh 
ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE 
INCLUSION OF THe ABOVE Ty NOT Ice, THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PLAnSFERAEOS NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAY ton NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS wie 


I FOR THE USE OR ee OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


Y 
NOT SUPPLIED BY DIGITAL 


LER RRR EERE EERE ERKERE REE 
' 


i FACILITY: Pascal Language Support 
i ABSTRACT: 


This module contains procedures which read a boolean 
from a textfile or a string. 


: {ENVIRONMENT : User mode - AST reentrant 

AUTHOR: Steven B. Lionel, CREATION DAic: i-April-1981 
{| MODIFIED BY: 

_1-001 - Original. SBL 1-April-1981 


! File: PASREABOO.B32 Edit: 


ss-32 V rhe 
hip ASRE Shaoo. B32;1 


$8L1001 
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PASSREAD_BOOLEA Read a boolean 16-Sep-1984 01:52:59 AX=-1 
1-00 14 ats 7 1beFi 22 


1 32 v4.0 
eclarations PASRTL A 


Liss- oa 
SRC JPASREABOO.B32; 1 


OWN STORAGE. 


1+ 
! Declare our own Pascal Enumerated bype Descriptor (PETD) for the BOOLEAN 


t 
type. This will be passed to PASSREAD_ENUMERATED. 


GLOBAL 
PAS$$GR_BOCLEAN_PETD: VECTOR C4, LONG] PSECT (_PASSCODE) INITIAL ( 


(JPLIT BYTE (ZASCIC*BOOLEAN ) = PASS$GR_BOOLEAN_PETD), ! Name of type 

° ' Count of values 
(UPLIT BYTE (SASCIC'FALSE') = PAS$$S5R_BOOLEAN PETD), ' Value FALSE = 0 
(UPLIT BYTE (ZASCIC'TRUE') = PAS$$GR_BOOLEAN_PETD)); ' Value TRUE = 1 


1 
48 047 1 &SBITL ‘Declarations’ 
49 048 1! 
0 049 1 ! PROLOGUE DEFINITIONS: 
Loom P 
38 036 : REQUIRE "RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
55 We 1! 
56 118 1 ! TABLE OF CONTENTS: 
57 119 1! 
58 120 1 
53 15) 1 FORWARD ROUTINE 
60 \¢¢ 1 PASSREAD BOOLEAN, ' Read from textfile 
6} Is; : PASSREADV_BOOLEAN; ! Read from string 
8 16 1! 
64 126 1 ! MACROS: 
65 127 1! 
66 128 1! NONE 
6? 19 77 . 
68 139 : EQUATID SYMBOLS: 
70 1321! NONE ° 
71 133 7 3 
72 134 1°! FIELDS: 
73 135 1! 
74 + a 2 NONE 
+ ge 
138 1! 
139 1! 
140 1 
122 4 
123 1 
144 «1 
145 1 
146 «1 
147 1 
148 #1 
149 #1 
150 1 
151 1 
152 1 
33 4 


PTE TETE TE IE TEIOIO Ie Te eee ee eee eee rere rere rere rere reve rere re rere rere rete eet 
oa 
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PASSREAD_BGOOLEA Read a boolean 16-sep-1984 1:52:59 AX-11 Oi etait pth ae Page 3 
1-001 PASSREAD_BOOLEAN = Read a boolean from textfile 14-Sep-1984 12:51:44 PASRTL.SRCJPASREABOO.B52;1 (3) 


154 
135 


: GLOBAL ROUTINE PASSREAD BOOLE 


} 
ISBITL *PASSREAD BOOLEAN = Read a boolean from textfile’ 
PE: REF SPASSPFV_FILE_ VARIABLE, ' File variable 


Dooo 


a a ue a t-te 


~Oo 


! Error unwind address 
++ 
FUNCTIONAL DESCRIPTION: 


This turction reads a boolean from the specified textfile 
and returns it as the function value. 


' 
i 
i 
i 
i 
i 
CALLING SEQUENCE: 

BOOLEAN.wv.v = PASSREAD_BOOLEAN (PFV.mr.r C, ERROR. ja.rJ) 
i 

i 

i 

i 

i 

i 

i 


FORMAL PARAMETERS: 
PFY - The Pascal File Variable (PFV) passed g Fg ar ge 


93 1 
94 | 
95 1 
96 1 
97 8 1 
98 9 1 
99 60 1 
100 8 61 1 
101 6¢ 1 
106 0163 #1 
10 0164 1 
104 0165 1 
; 105 0166 1 
: 106 Q167 1 
s 107 0168 1 
: 1028 016° 1 
; 109 07170 #1 
: 110 0171 1 
3 111 0 Le 1 ( : 
3 11g 8 t : The structure of the PFV is defined in PASPFV.REQ. 
s 116 0175 «1 ERROR - Optional. If specified, the address to unwind to | 
s 115 0176 #1 in case of an error. 
: «116 0177 1: 
ime hh 0:78 #1 ! IMPLICIT INPUTS: 
: (118 0179 1! 
: #119 0180 1! NONE | 
> 120 0181 71: | 
s 121 Bee 1 ! IMPLICIT OUTPUTS: 
s lee 0183 1! 
q Yes 0184 1! NONE | 
s 126 0185 1! 
: #125 0186 1% ! ROUTINE VALUE: 
s 126 0187 1! 
: 127 0188 #1! The value of the boolean read. 
: 128 C189 #1! 
3 4 0190 1 ! SIDE EFFECTS: 
; 130 0191 1! aah tt Ses 5 
: \3) Bias : If the file is the standard file INPUT or OUTPUT, it is impiicitly opened. 
; 133 0194 1 ! SIGNALLED ERRORS: 
s 134 0195 1! 
; 135 0196 1! 
: 136 Sha 1 !-- 
: 137 198 1 
s 138 0199 2 BEGIN 
EF 139 9200 
; 140 0201 CAL | 
: (141 oe0e PFV_ADDR: VOLATILE, ! Enaole argument 
; Fy 020 UNWIND ACT: VOLATILE, ! Enable argument 
: 14 0204 ERROR_ADDR: VOLATILE; ! Enable argument 
3 144 0205 
3: 145 Bs08 BUILTIN 
3: 146 07 ACTUAL COUNT; ! Count of arguments 
3 147 0208 
3; «168 0209 ENABLE 
3; «149 0210 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


De Be Be Be Be Se SOBs Be Se Be Ss Se Be Se Se Se Se Se Ge Ge Se Se Se Se Fe Se Ge Gs Se Se Ss Se se Fe Se Se Se SH Se Seas Se Se Se Se ae Se Se Se Se Seas es te teas 
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-TITLE PASSREAD_BOOLEAN Read a boolean 
\1-001\ 


PASSREAD_BOOLEA Read a boolean 16- 91:3 :59 AX-11 tt! V4.0-74 Page 4 

1-001 ASSREAD_BOOLEAN = Read a boolean from textfile 14-Sep-1984 51:44 PASRTL.SRCJPASREABOO.B32;1 (3) 
; 150 1 ; 
s 151 1g '¢ ‘ 
s 4 ¢ 1 : Get ERROR parameter, if present. ‘ 
ss 14 l= : 
; 1546 0215 : 
s 55 0 1 IF ACTUALCOUNT () GEQU 2 , 
: 128 021 TH ; 
; 157 8 18 ERROR_ADDR = .ERROR; ! Set unwind address : 
; 158 19 | : 
; 159 0220 '¢ . 
; 160 1 ' Set PFY address. | ° 
> 161 ¢ '- : 
; 4 : 
; 16 0224 PFV_ADDR = PFY CPFVSR_PFY); | : 
> «6164 0225 : 
3s 169 0226 '¢ | : 
> 166 0227 ! Call READ_ENUMERATED to do the work. | > 
3 ier 0228 le : 
; 168 0 $3 | 3 
; 169 0230 RETURN (PASSREAD_ENUMERATED ( ° 
: 170 0231 PFV [CPFV$R_PFVJ, ; 
; WW O636 2 PAS$$GR_BOOLEAN_PETD)); : 
: 7¢ 02 § 3 
; WW 0234 ; : 
3 174 0235 1 END; ! End of routine PAS$READ_BOOLEAN : 
IDENT : 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 ; 
4E 41 45 4C GF GF 42 O7 O P.AAA: .ASCII <7>\BOOLEAN\ ‘ 
45 53 4C 41 46 OS O P.AAB: .ASCII <5>\FALSE\ 3 
45 55 52 54 04 8 P.AAC: .ASCII <4>\TRUE\ 3 


-BLKB 1 
PASS$$GR_BOOLEAN_PETD: : 
.LONG ~<P,AAA-PAS$S$GR_BOOLEAN_PETD> 


«LONG 
-LONG <P.AAB-PAS$$GR_BOOLEAN_PETD>, <P.AAC-- 
PASSS$GR_BOOLEAN_PETD> 


.EXTRN PASSREAD BOOLEAN 
“EXTRN PASS$READV_BOOLEAN 
“EXTRN PAS$$IO_HANDLER 
TEXTRN PASSREAD_ENUMERATED 


00000002 0 
00006000* 00000000* 0 


0000 00000 ENTRY PASSREAD_BOOLEAN, Save nothing ; 0155) 

08 C2 0000¢ SUBL2# ; | 

7E D4 9000 CLRL  ERROR_ADDR : 0199. 

AE 7C 00007 CLRQ = UNWIND ACT : 

001D CF ODE O000A MOVAL 2$, (FP) ; 
6C 91 O000F CMPB_ ss (AP), #2 : 0216. 

04 Ff 90012 BLSSU 1 ; | 

08 AC DO 00014 OVL ERROR, ERROR_ADDR : 0218 | 
04 ac 00 90018 1$: MOVL  -PFV, PFV_ADD ; 0 gh 
DO AF OF 0001D PUSHAB PAS$$GR_BOOLEAN_PETD : 0231 | 


non eS tee gee Pi 


; Routine Size: 78 bytes, Routine Base: _PASS$CODE + 0024 


G 2 
PASSREAD -BOOLEA Read a boolean 1o-Sep-1984 01:52:59 AX-11 Bliss-32 V4.0-74 Page 5 
1-001 PASSREAD °BOOLEAN - Read a boolean from textfile 14-Sep-1984 12: 38:22 744 PASRTL.SRCJPASREABOO.B32;1 ’ (3). 
04 AC 0D Gud PUSHL $ 
000000006 00 02 FB 000 : CALLS WO PASSREAD_ENUMERATED 3 
oe 002A RET 3; 0235— 
0000 00028 2$ «WORD Save nothing ; 0199) 
28 08 AC 00 0002D MOVL B(AP), RO : 
04 AO 00 88 | MOVL 4 3 
F4 AO 9F 5 PUSHAB ERROR “ADDR : 
F8 AQ 9F 00038 PUSHAB UNWIND ACT : 
FC =6AO «9F 00038 PUSHAB PFV_ADBR : | 
9 DD OO03E PUSHL F 
E DD 00040 PUSHL SP 3 
43 04 A D 00042 MOVQ 4(AP), -(SP) : 
000000006 0 03 FB 00046 CALLS #3, PAS$$IO_ HANDLER : 
04 0004D RET : 


36 (1 
37 1 !<BLF/PAGE> 


02 
176 02 


| H 2 | 
PASSREAD BOOLEA Read a boolean ; Jo~se0= 1986 1:52:59 AX-11 Ol isa ese V4.0-74 Page 6. 
1-001 PASSREADV_BOOLEAN = Read a boolean from a strin 14-Sep-1984 12:51:44 PASRTL.SRCJPASREABOO.B32;1 (4) 


: 178 0 38 1 ZSBTTL "PASSREADV_ BOOLEAN = Read a boolean from a string’ 

: 179 1 GLOBAL ROUTINE PASSREADV pou ( ! Read an integer 

; 180 40 1 STRING: REF BLOCK {, BYTE], ! String descriptor 

; «(181 sa ! Error unwind address 

: is 0 r 1 = 

; 19 0245 1 

; «186 02464 1 !44 

: «185 0245 1 ! FUNCTIONAL DESCRIPTION: 

> «4186 0246 1! 

; 187 0247 1! This function reads a boolean from the specified string 

: «#188 0248 1! and returns it as the function value. 

; 189 8 49 1! 

; 4 9 2 : CALLING SEQUENCE: 
3 136 BS 2¢ } Boolean.wv.v = PASSREADV_BOOLEAN (STRING.mt.ds C, ERROR.ja.rJ) 
: 4194 $584 1 ! FORMAL PARAMETERS: 

: 195 0255 1! 
> 196 0256 1! STRING - The string to read from, passed as a class § 
3; 197 0257 1! (assumed) descriptor. the length and pointer 
; 133 os26 : } are updated to reflect the unread string. | 
: 200 0260 1! ERROR - Optional. If specified, the address to unwind to 
: 201 0261 1! in case of an error. 
; soe be6¢ 1! 

; a 0265 1 ! IMPLICIT INPUTS: 

: 204 0264 1! 

: 205 0265 1! NONE 
: 206 0266 1! 
: 207 0267 1 ! IMPLICIT OUTPUTS: | 
; 208 0268 1! 
: 209 0269 1! NONE 
: 210 0270 1! 
s av 0271 1 ! ROUTINE VALUE: | 
3 ave oe7¢ . 7 
3 «als 0275 1! The value of the boolean read. | 
> 214 0274 1: | 
3; 23 0275 1 ! SIDE EFFECTS: 
: 216 0276 1! 
aur 0277 1! NONE 
; sig 0278 1! 
; 19 0279 1 ! SIGNALLED ERRORS: 
; 220 0280 1! | 
s $$! osai 7! NONE 

3 2 0 Ht .% 

s @e3 0283 1 !-- 

: 226 0284 1 | 
: dee 0285 BEGIN 
; 226 bse6 

; 22? 0287 LOCAL : 

: 228 0288 PFV: SPASSPFV_FILE_VARIABLE, ! Pascal File Variable 

: 229 0289 RES ' Result value 

: 230 0290 ARG_LIST: VECTOR C2, LONG), i Argument list 

s 2s 8 91 PFV_ADDR: VOLATILE, ' Enable argument 

: 36 3 UNWIND_ACT: VOLATILE, ' Enable argument 

; sz BS32 ERROR_ADDR: VOLATILE; ! Enable argument 
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BUILTIN 
ACTUALCOUNT ; 


ENAB 


! Count of arguments 

LE 

PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
14 

Get ERROR parameter, if present. 


c ~ hiatal () GEQU 2 
ERROR_ADDR = .ERROR; 
PFV_ADDR = PFV CPFVSR_PFVI; 


' Set unwind address 
' Set PFV address 


; Set up ARG_LIST. 


' One argument 


(0) = 1; 
Ci] = PFV CPFVSR_PFVI; ! PFV address 


'¢ 
! Call PASS$DO_READV to do the work, giving it the address of 
:_PASSREAD_BOOLEAN to call 


eae 3 4 Yt (PFV CPFVSR_PFVJ, .STRING, ARG_LIST, PASSREAD_BOOLEAN; 


RETURN .RESULT; 
END; ! End of routine PASSREADV_BOOLEAN 


-EXTRN PASS$S$DO_READV 


o 
oO 


5¢ 00000 
5E 20 C2 00002 SUBL2 : 
7E D4 00005 CLRL ERROR_ADDR 
04 AE /7C 00007 CLRO UNWIND_ACT 
6D OO2F CF DE 9000A MOVAL 2$, (FP) 
02 6C 91 0000F MPB_ (AP), #2 
04 1F 00012 BLSSU. 1 
6E 08 AC DO 00014 MOVL ERROR, ERROR_ADDR 
08 AE 14 AE 9E 00018 1$: MOVAB PFV, PFV_ADDR 
OC AE 01 00 0001D MOVL #1, ARG_CIST 
10 AE 14 AE 9E 00021 MOVAB PFV, ARG_LIST+4 
54 89 AF 9E 00026 MOVAB PASSREAD BOOLEAN, R4 
53 C AE 9E OO02A MOVAB ARG_LIST> R 
36 14 AE 4 0 : MOVAB V 
2 04 ac 00 00 MOVL STRING R2 
000000006 00 i6 09 6 88 PAS$$D0_READV 
0000 $0 D 2$ «WORD Save nothing 


i teeace Ph oles 
ASRTL.SRCJPASREABOO.B52;1 


ENTRY PASSREADV_BOOLEAN, Save R2,R3,R4,R6 


2 
PASSREAD_BOOLEA Read a boolea 18- Sep-1 :59 AX-11 Bliss-32 V4.0-74 Page PA 
1-001 PASSREADV © BOOLEAN - Read a boolean from a strin 1 Sep-1 3B2 9} 34: 244 PASRTL.SRC PASREABOO.B 2:1 . “ad | 
08 AC OD 3F MOVL 8(AP), R : 
6 04 A b9 §? MOVL 4(RO), RO $ 
43 AQ 9F 04 SHAB ERROR_ADDR : 
E AO 9F O4A PUSHAB UNWIND ACT : 
E4 AO 9F 0004D PUSHAB PFV_ADBR : 
g DD b829 PUSHL #3 : 
E D 05 PUSHL SP : 
7E 04 A D 00054 MOVQ 4(AP), =(SP) : 
000000006 00 03 FB 00058 CALLS #3, PASS$IO_HANDLER : 
04 0005F RET : | 


; Routine Size: 96 bytes, Routine Base: _PASSCODE + 0072 


269 0329 1 
0330 1 !<BLF/PAGE> 
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PASSRERD -BOOLEA Read a boolea 16-Sep 138 94:3 AX-11 Bliss-32 V4.0 Page 9 
1-001 PASSREADV ° BOOLEAN - Read a boolean from a strin 14-Sep-1984 12:5 PASRTL.SRC PASREABOO. 5 2;1 (5) 
: 278 O38 | 1 END ! End of module PASS$READ_BOOLEAN 
; $ } eLupom 


Name Bytes Attributes 
PASSCODE 210 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


PSECT SUMMARY 
Library Statistics 


RS RR ey ae eee, ee ee Syabols -<----- - Pages Processing 
; File Total Loaded Percent Mapped Time 

> _$255$DUA28: :ESvS LIBISTARLET .132:1 9776 0 0 581 00:01.1 

: ~$255$DUA28: RTL.OBJJPASLIB.L32;1 427 26 6 33 00:00.4 

; COMMAND QUALIFIERS 


FLSES LCE OE? FELD, DOE TIA, APT SME CE DO TRACE A, 101. 15S cPRSRE ABCD SOR. “OBIS :PASREAROD MSRC$:PASREABOO/UPDATE=(ENH$ : PASREABOO 


3; Size: 174 code + 36 data bytes 
3; Run Time: 00:05.5 

; Elapsed Time: 00:21.1 

: Lines/CPU Min: 3645 

3; Lexemes/CPU-Min: 8605 

5 s 


penery Used: 47 page 
Compila 


tion Complete 
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